home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / CARPAN.BAS < prev    next >
BASIC Source File  |  1995-05-12  |  1KB  |  26 lines
  1. 10 ' ASAL CARPANLARA AYIRMA PROGRAMI . YAZAN MURAT NECIOGLU
  2. 20 DIM CT(100),CS(100)
  3. 30 CLS: INPUT "SAYIYI GIRIN ",SAYI : IF SAYI=0 OR SAYI=1 THEN END
  4. 40 IF SAYI>9999999# THEN PRINT:PRINT "LÜTFEN DAHA KÜÇÜK BÿR SAYI GÿRÿN !...":END
  5. 50 CLS: L=LEN(STR$(SAYI))-2: QQ=1 :R=SAYI
  6. 60 LOCATE 22,1 : PRINT "ÇARPANLAR HESAPLANIYOR.LÜTFEN BEKLEYÿN !..."
  7. 70 WHILE SAYI<>1
  8. 80  IF B=1 THEN 100
  9. 90  IF A=2 THEN A=A+1 ELSE A=A+2
  10. 100  C=SAYI/A
  11. 110 IF INT(C)=C THEN Q=Q+1:GOSUB 210:CS(QQ)=CS(QQ)+1:CT(QQ)=A:B=1:SAYI=C:GOTO 130
  12. 120  B=0:IF CT(QQ)<>0 THEN QQ=QQ+1:
  13. 130 WEND: IF Q>18 THEN CLS:Q=1
  14. 140 LOCATE Q+3,1:R$=STR$(R):U=LEN(R$):PRINT RIGHT$(R$,U-1)+" ="
  15. 150 FOR T= 1 TO QQ:WW=WW+3
  16. 160   SC$=STR$(CT(T)):UU=LEN(SC$):
  17. 170   LOCATE Q+3,T+WW+L:PRINT STR$(CT(T))
  18. 180   LOCATE Q+2,T+WW+L+UU-1:IF CS(T)=1 THEN PRINT " " ELSE PRINT STR$(CS(T))
  19. 190 NEXT: LOCATE Q+3,T+WW+L+UU-1
  20. 200 LOCATE 22,1:PRINT "                                                  ":END
  21. 210 IF Q>20 THEN RETURN
  22. 220 LOCATE Q,1:PRINT SAYI :
  23. 230 LOCATE Q,3+L:PRINT CHR$(179):
  24. 240 LOCATE Q,4+L:PRINT A:
  25. 250 RETURN:'*******************************************************************
  26.